home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
86xx
/
8607.d64
/
small change
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
2KB
|
86 lines
10 REM *** ZEICHENSATZAENDERUNG ***
20 REM *** FUER "THE NEWSROOM" ***
30 REM *** KLEINE SCHRIFT ***
50 POKE53280,3:POKE53281,3:PRINT"[147]"
100 DIMB(2000)
110 OPEN 3,8,3,"SFNTS,P,R"
115 PRINT"BITTE GEDULD - PURES BASIC"
120 AN=AN+1:GOSUB 1000:B(AN)=A
130 IF ST=0 THEN120
140 CLOSE 3
200 FOR L=4TO199
210 IFB(L)=0THEN 310
220 GOSUB2000:PRINT""
230 FORK=0TO7
240 FORM=0TO7
250 IF(B(L*8+171+K)AND2^M)=0THEN270
260 POKE1080+K*40+(7-M),81
270 POKE55352+K*40+(7-M),6
300 NEXTM,K
305 PRINT"ZEICHEN #:"L
310 PRINT"BREITE :"B(L)
315 X=0:Y=0:POKE1080,PEEK(1080)OR128
320 GETA$:IFA$=""THEN320
325 IFA$="*"THENINPUT"ZEICHEN #:";L:GOTO210
326 IFA$="@"THENINPUT"NEUE ZEICHEN #:";L:GOSUB1700:GOTO410
330 IF A$="^"THENL=199:GOTO410
340 IF A$=""THENGOSUB1100
350 IF A$="[157]"THENGOSUB1200
360 IF A$=""THENGOSUB1300
370 IF A$="[145]"THENGOSUB1400
380 IFA$="="THENGOSUB1600
390 IFA$=CHR$(13)THENGOSUB1700:GOTO410
395 IFA$=" "THEN 410
400 GOTO 320
410 NEXTL
420 OPEN3,8,3,"@:NEWFONTS,P,W"
430 FORL=1TOAN
440 PRINT#3,CHR$(B(L));
450 NEXT
460 CLOSE3
470 END
880 NEXTL:END
1000 GET#3,A$
1010 IFA$=""THENA=0:RETURN
1020 A=ASC(A$):RETURN
1100 REM *** CURSOR RECHTS ***
1110 GOSUB 1500
1120 IF X<6THEN X=X+1
1130 GOSUB 1500
1140 RETURN
1200 REM *** CURSOR LINKS ***
1210 GOSUB 1500
1220 IF X>0THEN X=X-1
1230 GOSUB 1500
1240 RETURN
1300 REM *** CURSOR RUNTER ***
1310 GOSUB 1500
1320 IF Y<7THEN Y=Y+1
1330 GOSUB 1500
1340 RETURN
1400 REM *** CURSOR RAUF ***
1410 GOSUB 1500
1420 IF Y>0THEN Y=Y-1
1430 GOSUB 1500
1440 RETURN
1500 REM *** CURSOR SETZEN/LOESCHEN ***
1510 IFPEEK(1080+X+Y*40)>128THENPOKE1080+X+Y*40,PEEK(1080+X+Y*40)AND127:RETURN
1520 POKE1080+X+Y*40,PEEK(1080+X+Y*40)OR128:RETURN
1600 REM *** PUNKT SETZEN/LOESCHEN ***
1610 IF PEEK(1080+X+Y*40)=160THENPOKE1080+X+Y*40,209:RETURN
1620 IF PEEK(1080+X+Y*40)=209THENPOKE1080+X+Y*40,160:RETURN
1700 REM *** NEUES ZEICHEN ***
1710 GOSUB1500:INPUT"BREITE ";B(L)
1720 FORK=0TO7:B(L*8+171+K)=0
1730 FORM=0TO7
1740 IFPEEK(1080+K*40+(7-M))=81THENB(L*8+171+K)=B(L*8+171+K)OR2^M
1750 NEXTM,K
1760 RETURN
2000 REM *** BILDSCHIRMAUFBAU ***
2010 PRINT"[147] "
2020 FORK=1TO8
2030 PRINT" "
2040 NEXT
2050 PRINT" "
2060 RETURN